home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / ms_acces / mdbguru / textbox.cod < prev    next >
Encoding:
Text File  |  1995-02-21  |  510 b   |  17 lines
  1. ; default code for a text box control
  2.  
  3. ; got focus to change background color
  4. sub  <<controlname>>_GotFocus(Index as integer)
  5.     <<controlname>>(Index).BackColor = HIGH_BACKCOLOR
  6.     <<controlname>>(Index).SelLength = len(<<controlname>>(Index).Text)
  7.     <<controlname>>(Index).SelStart = 0
  8. end sub
  9.  
  10. ; got focus to change background color
  11. sub  <<controlname>>_LostFocus(Index as integer)
  12.     <<controlname>>(Index).BackColor = NORM_BACKCOLOR
  13.     <<controlname>>(Index).SelLength = 0
  14. end sub
  15.  
  16.  
  17.